home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_4_More Code.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  21.9 KB  |  531 lines
  1. global gMaster, gMasterImagesPath, gMasterDocPath, gNotes, gPath, gFolderName4, gFolderName1, gFolderName2, gFolderName3, gMasterFolder, gMasterNotesPath, gMasterLogosPath, gMasterPosterPath, gTracker
  2.  
  3. on mGatherOtherLargeNames
  4.   repeat with w = 1 to gMaster.pSummaryList.count
  5.     vSmallName = gMaster.pSummaryList[w].pSmallName
  6.     repeat with g = 1 to gMaster.pPosterList.count
  7.       if gMaster.pPosterList[g].pSmallName = vSmallName then
  8.         gMaster.pSummaryList[w].pLargeName = gMaster.pPosterList[g].pLargeName
  9.       end if
  10.     end repeat
  11.   end repeat
  12.   repeat with w = 1 to gMaster.pSummaryList.count
  13.     vSmallName = gMaster.pSummaryList[w].pSmallName
  14.     repeat with g = 1 to gMaster.pLogoList.count
  15.       if gMaster.pLogoList[g].pSmallName = vSmallName then
  16.         gMaster.pSummaryList[w].pLargeName = gMaster.pLogoList[g].pLargeName
  17.       end if
  18.     end repeat
  19.   end repeat
  20.   repeat with w = 1 to gMaster.pSummaryList.count
  21.     if gMaster.pSummaryList[w].pType = "productionNotes" then
  22.       gMaster.pSummaryList[w].pLargeName = gNotes.pProductionFileNamePDFenglish
  23.       exit repeat
  24.     end if
  25.   end repeat
  26.   repeat with w = 1 to gMaster.pSummaryList.count
  27.     if gMaster.pSummaryList[w].pType = "productionCredits" then
  28.       gMaster.pSummaryList[w].pLargeName = gNotes.pCreditsFileNamePDFenglish
  29.       exit repeat
  30.     end if
  31.   end repeat
  32. end
  33.  
  34. on mGatherDownloadInfo
  35.   vTempTotal = 0
  36.   vFileTotal = 0
  37.   repeat with x = 1 to gMaster.pSummaryList.count
  38.     if gMaster.pSummaryList[x].pSelected = "yes" then
  39.       vFileTotal = vFileTotal + 1
  40.       case gMaster.pSummaryList[x].pType of
  41.         "productionNotes", "productionNotesSpanish":
  42.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.notesfolder & gMaster.pPlatformSymbol
  43.           if gMaster.pLanguageMode = "english" then
  44.             vPDF_Name = gMaster.pSummaryList[x].pLargeName
  45.             vCount = offset(".", vPDF_Name)
  46.             vDOC_Name = vPDF_Name.char[1..vCount] & "doc"
  47.             vLargeName1 = vPDF_Name
  48.             vLargeName2 = vDOC_Name
  49.           else
  50.             vLargeName1 = gNotes.pProductionFileNamePDFspanish
  51.             vLargeName2 = gNotes.pProductionFileNameDOCspanish
  52.           end if
  53.         "productionCredits", "productionCreditsSpanish":
  54.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.notesfolder & gMaster.pPlatformSymbol
  55.           if gMaster.pLanguageMode = "english" then
  56.             vPDF_Name = gMaster.pSummaryList[x].pLargeName
  57.             vCount = offset(".", vPDF_Name)
  58.             vDOC_Name = vPDF_Name.char[1..vCount] & "doc"
  59.             vLargeName1 = vPDF_Name
  60.             vLargeName2 = vDOC_Name
  61.           else
  62.             vLargeName1 = gNotes.pCreditsFileNamePDFspanish
  63.             vLargeName2 = gNotes.pCreditsFileNameDOCspanish
  64.           end if
  65.         "poster":
  66.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.posterfolder & gMaster.pPlatformSymbol
  67.           vLargeName1 = gMaster.pSummaryList[x].pLargeName
  68.           vLargeName2 = 0
  69.         "logo":
  70.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.logosfolder & gMaster.pPlatformSymbol
  71.           vLargeName1 = gMaster.pSummaryList[x].pLargeName
  72.           vLargeName2 = 0
  73.         "photo":
  74.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.imagesfolder & gMaster.pPlatformSymbol
  75.           vLargeName1 = gMaster.pSummaryList[x].pLargeName
  76.           vLargeName2 = 0
  77.         otherwise:
  78.           alert("you have a problem Los Angeles")
  79.       end case
  80.       vSize = baFileSize(vFromPath & vLargeName1)
  81.       vTempTotal = vTempTotal + value(vSize)
  82.       if vLargeName2 <> 0 then
  83.         vSize = baFileSize(vFromPath & vLargeName2)
  84.         vTempTotal = vTempTotal + value(vSize)
  85.       end if
  86.     end if
  87.   end repeat
  88.   if vTempTotal = 0 then
  89.     vText = "you haven't selected any files to download"
  90.     vText2 = EMPTY
  91.   else
  92.     vTempTotal2 = vTempTotal / 1024
  93.     vTempTotal3 = vTempTotal / 1024 / 1024
  94.     if vTempTotal3 > 1 then
  95.       vMegs = "megs"
  96.       vText2 = "You will need about " & vTempTotal3 & " " & vMegs & " of hard drive space for this download."
  97.     else
  98.       vMegs = "meg"
  99.       vText2 = "You will need less than one meg of hard drive space for this download."
  100.     end if
  101.     vText = "You have selected " & vFileTotal & " files to download"
  102.   end if
  103.   return vText & RETURN & vText2
  104. end
  105.  
  106. on GatherInfo vMode
  107.   gFolderName1 = gMaster.pGeneralSettings.title
  108.   gFolderName2 = gMaster.pExternalFolders.imagesfolder
  109.   gFolderName3 = gMaster.pExternalFolders.docsfolder
  110.   gFolderName4 = gMaster.pExternalFolders.notesfolder
  111.   gFolderName5 = gMaster.pExternalFolders.logosfolder
  112.   gFolderName6 = gMaster.pExternalFolders.posterfolder
  113.   case vMode of
  114.     "desktop":
  115.       gPath = baSysFolder("desktop")
  116.       gMasterFolder = gPath & gFolderName1 & gMaster.pPlatformSymbol
  117.       gMasterImagesPath = gMasterFolder & gFolderName2 & gMaster.pPlatformSymbol
  118.       gMasterDocPath = gMasterFolder & gFolderName3 & gMaster.pPlatformSymbol
  119.       gMasterNotesPath = gMasterFolder & gFolderName4 & gMaster.pPlatformSymbol
  120.       gMasterLogosPath = gMasterFolder & gFolderName5 & gMaster.pPlatformSymbol
  121.       gMasterPosterPath = gMasterFolder & gFolderName6 & gMaster.pPlatformSymbol
  122.     "harddrive":
  123.       fileObj = xtra("FileXtra4").new()
  124.       gPath = fx_FolderSelectDialog(fileObj, "aaa")
  125.       gMasterFolder = gPath & gFolderName1 & gMaster.pPlatformSymbol
  126.       gMasterImagesPath = gMasterFolder & gFolderName2 & gMaster.pPlatformSymbol
  127.       gMasterDocPath = gMasterFolder & gFolderName3 & gMaster.pPlatformSymbol
  128.       gMasterNotesPath = gMasterFolder & gFolderName4 & gMaster.pPlatformSymbol
  129.       gMasterLogosPath = gMasterFolder & gFolderName5 & gMaster.pPlatformSymbol
  130.       gMasterPosterPath = gMasterFolder & gFolderName6 & gMaster.pPlatformSymbol
  131.   end case
  132. end
  133.  
  134. on MasterSaveShowDialog
  135.   vText = mGatherDownloadInfo()
  136.   sprite(152).member.text = vText
  137.   showFlashDialog()
  138. end
  139.  
  140. on MasterSave vWhichOne, vMode
  141.   case vWhichOne of
  142.     "deskTop":
  143.       GatherInfo("deskTop")
  144.     "harddrive":
  145.       GatherInfo("harddrive")
  146.   end case
  147.   vPoster = 0
  148.   vOK = "no"
  149.   repeat with x = 1 to gMaster.pPhotoList.count
  150.     if gMaster.pPhotoList[x].pSelected = "yes" then
  151.       vOK = "yes"
  152.       exit repeat
  153.     end if
  154.   end repeat
  155.   repeat with x = 1 to gMaster.pPosterList.count
  156.     if gMaster.pPosterList[x].pSelected = "yes" then
  157.       vOK = "yes"
  158.       exit repeat
  159.     end if
  160.   end repeat
  161.   case vOK of
  162.     "no":
  163.       nothing()
  164.     "yes":
  165.       nothing()
  166.     otherwise:
  167.       alert(" you have a problem with vOK")
  168.   end case
  169.   Ok = baCreateFolder(gMasterFolder & gFolderName2 & gMaster.pPlatformSymbol)
  170.   vSkip = "yes"
  171.   repeat with x = 1 to gMaster.pPhotoList.count
  172.     if gMaster.pPhotoList[x].pSelected = "yes" then
  173.       vName = gMaster.pPhotoList[x].pLargeName
  174.       if gMaster.pPhotoList[x].pOKtoDownload = "yes" then
  175.         if baFileExists(gMaster.pMasterPath & gMaster.pInternalFolders.imagesfolder & gMaster.pPlatformSymbol & vName) = 1 then
  176.           mGatherDownloadInfo(gMaster.pMasterPath & gMaster.pInternalFolders.imagesfolder & gMaster.pPlatformSymbol & vName)
  177.           vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.imagesfolder & gMaster.pPlatformSymbol
  178.           vTemp = (the environment).productVersion
  179.           if the platform contains "Mac" then
  180.             case vTemp of
  181.               "8.5.1", "8.5":
  182.                 oneFile = new(xtra("progresscopy"), 1, 100, 100)
  183.                 copyFile(oneFile, vFromPath & vName, gMasterImagesPath & vName, 1, 1, 1)
  184.                 gTracker.mAddDownLoad("photo", vName)
  185.                 oneFile = 0
  186.               otherwise:
  187.                 Ok = baCopyFileProgress(vFromPath & vName, gMasterImagesPath & vName, "always", "Downloading files... ", "Cancel", 0)
  188.                 gTracker.mAddDownLoad("photo", vName)
  189.             end case
  190.           else
  191.             Ok = baCopyFileProgress(vFromPath & vName, gMasterImagesPath & vName, "always", "Downloading files... ", "Cancel", 0)
  192.             gTracker.mAddDownLoad("photo", vName)
  193.           end if
  194.           vSkip = "no"
  195.         end if
  196.       end if
  197.     end if
  198.   end repeat
  199.   if vSkip = "no" then
  200.     CaptionCode(gPath)
  201.   end if
  202.   SavePoster()
  203.   SaveLogos()
  204.   if vMode = "with" then
  205.     SaveNotes()
  206.   end if
  207. end
  208.  
  209. on SavePoster
  210.   vSkip = "yes"
  211.   repeat with x = 1 to gMaster.pPosterList.count
  212.     if gMaster.pPosterList[x].pSelected = "yes" then
  213.       vSkip = "no"
  214.       exit repeat
  215.     end if
  216.   end repeat
  217.   if vSkip = "yes" then
  218.     exit
  219.   else
  220.     vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.posterfolder & gMaster.pPlatformSymbol
  221.     vToPath = gMasterPosterPath
  222.     Ok = baCreateFolder(gMasterPosterPath)
  223.     repeat with x = 1 to gMaster.pPosterList.count
  224.       if gMaster.pPosterList[x].pSelected = "yes" then
  225.         vlargeName = gMaster.pPosterList[x].pLargeName
  226.         if baFileExists(vFromPath & vlargeName) = 1 then
  227.           vTemp = (the environment).productVersion
  228.           if the platform contains "Mac" then
  229.             case vTemp of
  230.               "8.5.1", "8.5":
  231.                 put "posterfound 8.5.1"
  232.                 oneFile = new(xtra("progresscopy"), 1, 100, 100)
  233.                 copyFile(oneFile, vFromPath & vlargeName, vToPath & vlargeName, 1, 1, 1)
  234.                 gTracker.mAddDownLoad("poster", vlargeName)
  235.                 oneFile = 0
  236.               otherwise:
  237.                 Ok = baCopyFileProgress(vFromPath & vlargeName, vToPath & vlargeName, "always", "Downloading files... ", "Cancel", 0)
  238.                 gTracker.mAddDownLoad("poster", vlargeName)
  239.             end case
  240.             next repeat
  241.           end if
  242.           Ok = baCopyFileProgress(vFromPath & vlargeName, vToPath & vlargeName, "always", "Downloading files... ", "Cancel", 0)
  243.           gTracker.mAddDownLoad("poster", vlargeName)
  244.         end if
  245.       end if
  246.     end repeat
  247.   end if
  248. end
  249.  
  250. on SaveLogos
  251.   vSkip = "yes"
  252.   repeat with x = 1 to gMaster.pLogoList.count
  253.     if gMaster.pLogoList[x].pSelected = "yes" then
  254.       vSkip = "no"
  255.       exit repeat
  256.     end if
  257.   end repeat
  258.   if vSkip = "yes" then
  259.     exit
  260.   else
  261.     vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.logosfolder & gMaster.pPlatformSymbol
  262.     vToPath = gMasterLogosPath
  263.     Ok = baCreateFolder(vToPath)
  264.     repeat with x = 1 to gMaster.pLogoList.count
  265.       if gMaster.pLogoList[x].pSelected = "yes" then
  266.         vlargeName = gMaster.pLogoList[x].pLargeName
  267.         if baFileExists(vFromPath & vlargeName) = 1 then
  268.           vTemp = (the environment).productVersion
  269.           if the platform contains "Mac" then
  270.             case vTemp of
  271.               "8.5.1", "8.5":
  272.                 put "logofound 8.5.1"
  273.                 oneFile = new(xtra("progresscopy"), 1, 100, 100)
  274.                 copyFile(oneFile, vFromPath & vlargeName, vToPath & vlargeName, 1, 1, 1)
  275.                 gTracker.mAddDownLoad("logo", vlargeName)
  276.                 oneFile = 0
  277.               otherwise:
  278.                 Ok = baCopyFileProgress(vFromPath & vlargeName, vToPath & vlargeName, "always", "Downloading files... ", "Cancel", 0)
  279.                 gTracker.mAddDownLoad("logo", vlargeName)
  280.             end case
  281.             next repeat
  282.           end if
  283.           Ok = baCopyFileProgress(vFromPath & vlargeName, vToPath & vlargeName, "always", "Downloading files... ", "Cancel", 0)
  284.           gTracker.mAddDownLoad("logo", vlargeName)
  285.         end if
  286.       end if
  287.     end repeat
  288.   end if
  289. end
  290.  
  291. on SaveNotesOnly
  292.   if (gMasterImagesPath = EMPTY) or (gMasterDocPath = EMPTY) then
  293.     GatherInfo("deskTop")
  294.     Ok = baCreateFolder(gMasterFolder & gFolderName2 & gMaster.pPlatformSymbol)
  295.     SaveNotes()
  296.   else
  297.     SaveNotes()
  298.   end if
  299. end
  300.  
  301. on SaveNotes
  302.   vSkip = "yes"
  303.   repeat with x = 1 to gMaster.pSummaryList.count
  304.     if (gMaster.pSummaryList[x].pType contains "credit") or (gMaster.pSummaryList[x].pType contains "note") then
  305.       if gMaster.pSummaryList[x].pSelected = "yes" then
  306.         vSkip = "no"
  307.         exit repeat
  308.       end if
  309.     end if
  310.   end repeat
  311.   if vSkip = "yes" then
  312.     exit
  313.   else
  314.     vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.notesfolder & gMaster.pPlatformSymbol
  315.     vToPath = gMasterNotesPath
  316.     Ok = baCreateFolder(gMasterNotesPath)
  317.     repeat with x = 1 to gMaster.pSummaryList.count
  318.       if (gMaster.pSummaryList[x].pType contains "credit") or (gMaster.pSummaryList[x].pType contains "note") then
  319.         if gMaster.pSummaryList[x].pSelected = "yes" then
  320.           vPDF_Name = gMaster.pSummaryList[x].pLargeName
  321.           vCount = offset(".", vPDF_Name)
  322.           vDOC_Name = vPDF_Name.char[1..vCount] & "doc"
  323.           vNotesPDF = vPDF_Name
  324.           vNotesDOC = vDOC_Name
  325.           if (baFileExists(vFromPath & vNotesPDF) = 1) and (baFileExists(vFromPath & vNotesDOC) = 1) then
  326.             vTemp = (the environment).productVersion
  327.             if the platform contains "Mac" then
  328.               case vTemp of
  329.                 "8.5.1", "8.5":
  330.                   oneFile = new(xtra("progresscopy"), 1, 100, 100)
  331.                   copyFile(oneFile, vFromPath & vNotesPDF, vToPath & vNotesPDF, 1, 1, 1)
  332.                   copyFile(oneFile, vFromPath & vNotesDOC, vToPath & vNotesDOC, 1, 1, 1)
  333.                   gTracker.mAddDownLoad("PDF", vNotesPDF)
  334.                   gTracker.mAddDownLoad("DOC", vNotesDOC)
  335.                   oneFile = 0
  336.                 otherwise:
  337.                   OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  338.                   OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  339.                   gTracker.mAddDownLoad("PDF", vNotesPDF)
  340.                   gTracker.mAddDownLoad("DOC", vNotesDOC)
  341.               end case
  342.               next repeat
  343.             end if
  344.             OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  345.             OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  346.             gTracker.mAddDownLoad("PDF", vNotesPDF)
  347.             gTracker.mAddDownLoad("DOC", vNotesDOC)
  348.           end if
  349.         end if
  350.       end if
  351.     end repeat
  352.   end if
  353. end
  354.  
  355. on SaveNotesOrginal
  356.   vSkip = "yes"
  357.   vP = gNotes.pProductionSelected
  358.   vC1 = gNotes.pCastSelected
  359.   vC2 = gNotes.pCreditsSelected
  360.   vF = gNotes.pFilmmakerSelected
  361.   if (vP = "yes") or (vC1 = "yes") or (vC2 = "yes") or (vF = "yes") then
  362.     vSkip = "no"
  363.   end if
  364.   if vSkip = "yes" then
  365.     exit
  366.   else
  367.     vFromPath = gMaster.pMasterPath & gMaster.pInternalFolders.notesfolder & gMaster.pPlatformSymbol
  368.     vToPath = gMasterNotesPath
  369.     Ok = baCreateFolder(gMasterNotesPath)
  370.     if vP = "yes" then
  371.       if gMaster.pLanguageMode = "english" then
  372.         vNotesPDF = gNotes.pProductionFileNamePDFenglish
  373.         vNotesDOC = gNotes.pProductionFileNameDOCenglish
  374.       else
  375.         vNotesPDF = gNotes.pProductionFileNamePDFspanish
  376.         vNotesDOC = gNotes.pProductionFileNameDOCspanish
  377.       end if
  378.       if (baFileExists(vFromPath & vNotesPDF) = 1) and (baFileExists(vFromPath & vNotesDOC) = 1) then
  379.         vTemp = (the environment).productVersion
  380.         if the platform contains "Mac" then
  381.           case vTemp of
  382.             "8.5.1", "8.5":
  383.               oneFile = new(xtra("progresscopy"), 1, 100, 100)
  384.               copyFile(oneFile, vFromPath & vNotesPDF, vToPath & vNotesPDF, 1, 1, 1)
  385.               copyFile(oneFile, vFromPath & vNotesDOC, vToPath & vNotesDOC, 1, 1, 1)
  386.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  387.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  388.               oneFile = 0
  389.             otherwise:
  390.               OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  391.               OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  392.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  393.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  394.           end case
  395.         else
  396.           OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  397.           OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  398.           gTracker.mAddDownLoad("PDF", vNotesPDF)
  399.           gTracker.mAddDownLoad("DOC", vNotesDOC)
  400.         end if
  401.       end if
  402.     end if
  403.     if vC1 = "yes" then
  404.       vNotesPDF = gNotes.pCastFileNamePDF
  405.       vNotesDOC = gNotes.pCastFileNameDOC
  406.       if (baFileExists(vFromPath & vNotesPDF) = 1) and (baFileExists(vFromPath & vNotesDOC) = 1) then
  407.         vTemp = (the environment).productVersion
  408.         if the platform contains "Mac" then
  409.           case vTemp of
  410.             "8.5.1", "8.5":
  411.               oneFile = new(xtra("progresscopy"), 1, 100, 100)
  412.               copyFile(oneFile, vFromPath & vNotesPDF, vToPath & vNotesPDF, 1, 1, 1)
  413.               copyFile(oneFile, vFromPath & vNotesDOC, vToPath & vNotesDOC, 1, 1, 1)
  414.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  415.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  416.               oneFile = 0
  417.             otherwise:
  418.               OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  419.               OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  420.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  421.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  422.           end case
  423.         else
  424.           OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  425.           OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  426.           gTracker.mAddDownLoad("PDF", vNotesPDF)
  427.           gTracker.mAddDownLoad("DOC", vNotesDOC)
  428.         end if
  429.       end if
  430.     end if
  431.     if vC2 = "yes" then
  432.       if gMaster.pLanguageMode = "english" then
  433.         vNotesPDF = gNotes.pCreditsFileNamePDFenglish
  434.         vNotesDOC = gNotes.pCreditsFileNameDOCenglish
  435.       else
  436.         vNotesPDF = gNotes.pCreditsFileNamePDFspanish
  437.         vNotesDOC = gNotes.pCreditsFileNameDOCspanish
  438.       end if
  439.       if (baFileExists(vFromPath & vNotesPDF) = 1) and (baFileExists(vFromPath & vNotesDOC) = 1) then
  440.         vTemp = (the environment).productVersion
  441.         if the platform contains "Mac" then
  442.           case vTemp of
  443.             "8.5.1", "8.5":
  444.               put "creditnotesfound 8.5.1"
  445.               oneFile = new(xtra("progresscopy"), 1, 100, 100)
  446.               copyFile(oneFile, vFromPath & vNotesPDF, vToPath & vNotesPDF, 1, 1, 1)
  447.               copyFile(oneFile, vFromPath & vNotesDOC, vToPath & vNotesDOC, 1, 1, 1)
  448.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  449.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  450.               oneFile = 0
  451.             otherwise:
  452.               OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  453.               OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  454.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  455.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  456.           end case
  457.         else
  458.           put "creditnotesfound 9.0"
  459.           put "creditnotesfound 9.0 win"
  460.           OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  461.           OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  462.           gTracker.mAddDownLoad("PDF", vNotesPDF)
  463.           gTracker.mAddDownLoad("DOC", vNotesDOC)
  464.         end if
  465.       end if
  466.     end if
  467.     if vF = "yes" then
  468.       vNotesPDF = gNotes.pFilmmakerFileNamePDF
  469.       vNotesDOC = gNotes.pFilmmakerFileNameDOC
  470.       if (baFileExists(vFromPath & vNotesPDF) = 1) and (baFileExists(vFromPath & vNotesDOC) = 1) then
  471.         vTemp = (the environment).productVersion
  472.         if the platform contains "Mac" then
  473.           case vTemp of
  474.             "8.5.1", "8.5":
  475.               oneFile = new(xtra("progresscopy"), 1, 100, 100)
  476.               copyFile(oneFile, vFromPath & vNotesPDF, vToPath & vNotesPDF, 1, 1, 1)
  477.               copyFile(oneFile, vFromPath & vNotesDOC, vToPath & vNotesDOC, 1, 1, 1)
  478.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  479.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  480.               oneFile = 0
  481.             otherwise:
  482.               OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  483.               OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  484.               gTracker.mAddDownLoad("PDF", vNotesPDF)
  485.               gTracker.mAddDownLoad("DOC", vNotesDOC)
  486.           end case
  487.         else
  488.           OK2 = baCopyFileProgress(vFromPath & vNotesPDF, vToPath & vNotesPDF, "always", "Downloading files... ", "Cancel", 0)
  489.           OK3 = baCopyFileProgress(vFromPath & vNotesDOC, vToPath & vNotesDOC, "always", "Downloading files... ", "Cancel", 0)
  490.           gTracker.mAddDownLoad("PDF", vNotesPDF)
  491.           gTracker.mAddDownLoad("DOC", vNotesDOC)
  492.         end if
  493.       end if
  494.     end if
  495.   end if
  496. end
  497.  
  498. on getDestFromUser vFolder
  499.   fileObj = xtra("FileXtra4").new()
  500.   if the platform contains "Mac" then
  501.     thePath = fileObj.fx_FileSaveAsDialog("Macintosh HD:", vFolder, "Save")
  502.   else
  503.     thePath = fileObj.fx_FileSaveAsDialog(the moviePath, vFolder, "Save", 1)
  504.   end if
  505.   fileObj = 0
  506. end
  507.  
  508. on testNotes
  509.   if baFileExists(the moviePath & "notes:note1.rtf") = 1 then
  510.     put "yes it can find the file"
  511.   end if
  512. end
  513.  
  514. on testNotes2
  515.   global fileObj, gOrginalNotesPath
  516.   if the platform contains "Mac" then
  517.     gOrginalNotesPath = the moviePath & "notes:"
  518.   else
  519.     gOrginalNotesPath = the moviePath & "notes\"
  520.   end if
  521.   fileObj = xtra("FileXtra4").new()
  522.   if fx_FileExists(fileObj, gOrginalNotesPath & "jerryfix.dir") = 1 then
  523.     x = gOrginalNotesPath & "jerryfix.dir"
  524.     y = the moviePath & "Antwone Fisher:docs:jerryfix2.dir"
  525.     fx_FileCopy(fileObj, x, y)
  526.     vError = fileObj.fx_ErrorString()
  527.     fileObj = 0
  528.   end if
  529.   put vError
  530. end
  531.